|
700
|
How can I filter the check-boxes (method 1)
With Exgrid1
With .Columns.Add("Check")
With .Editor
.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckValueType
.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exCheckValue2,1)
End With
.DisplayFilterButton = True
.DisplayFilterPattern = False
.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exCheck
End With
With .Items
.AddItem(True)
.AddItem(True)
.AddItem(False)
.AddItem(True)
.AddItem(False)
.AddItem(True)
.AddItem(False)
End With
End With
|
|
699
|
How can add a button to control
' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub Exgrid1_ButtonClick(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByVal Key As Object) Handles Exgrid1.ButtonClick
With Exgrid1
Debug.Print( "ButtonClick" )
Debug.Print( .Items.get_CellCaption(Item,ColIndex) )
Debug.Print( Key )
End With
End Sub
Dim h,s
With Exgrid1
.BeginUpdate()
.DefaultItemHeight = 22
.HeaderHeight = 22
.Appearance = exontrol.EXGRIDLib.AppearanceEnum.None2
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exRowLines
.ScrollBySingleLine = False
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.set_HTMLPicture("pic1","c:\exontrol\images\auction.gif")
With .Columns
With .Add("Type")
.Width = 48
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
End With
With .Add("Appearance")
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
.Alignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
.HeaderAlignment = exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment
End With
End With
With .Items
h = .AddItem("Items.<b>CellHasButton</b> property")
.set_CellValue(h,1,"Button <b>1</b>")
.set_CellHasButton(h,1,True)
h = .AddItem("Items.<b>CellButtonAutoWidth</b> property")
.set_CellValue(h,1," Button <b>2</b> ")
.set_CellHasButton(h,1,True)
.set_CellButtonAutoWidth(h,1,True)
h = .AddItem("Items.<b>CellHasButton</b> property")
.set_CellValue(h,1," <img>2</img>Button <b>3</b> ")
.set_CellHasButton(h,1,True)
.set_CellButtonAutoWidth(h,1,True)
h = .AddItem("Items.<b>CellHasButton</b> property")
.set_ItemHeight(h,32)
.set_CellValue(h,1," <img>2</img>Button <b>4</b> <img>pic1</img> ")
.set_CellHasButton(h,1,True)
.set_CellButtonAutoWidth(h,1,True)
h = .AddItem("Items.<b>CellHasButton</b> in splitted cells")
.set_CellValue(h,1," Button <b>5.1</b> ")
.set_CellHasButton(h,1,True)
.set_CellButtonAutoWidth(h,1,True)
s = .get_SplitCell(h,1)
.set_CellValue(0,s," Button <b>5.2</b> ")
.set_CellHasButton(0,s,True)
.set_CellButtonAutoWidth(0,s,True)
h = .AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
.set_CellValue(h,1,"Visible when clicking the cell")
With .get_CellEditor(h,1)
.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
.ButtonWidth = 24
End With
h = .AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
.set_CellValue(h,1,3)
With .get_CellEditor(h,1)
.EditType = exontrol.EXGRIDLib.EditTypeEnum.CheckListType
.AddItem(1,"Flag 1")
.AddItem(2,"Flag 2")
.AddItem(4,"Flag 4")
.AddItem(8,"Flag 8")
.AddButton("C1",1,0,"This is a bit of text that's shown when the cursor hovers the button C1")
.AddButton("C3",2,0,"This is a bit of text that's shown when the cursor hovers the button C2")
.AddButton("C4",1,0,"This is a bit of text that's shown when the cursor hovers the button C3")
.ButtonWidth = 24
End With
End With
.EndUpdate()
End With
|
|
698
|
The item is not getting selected when clicking the cell's checkbox. What should I do
' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Exgrid1_CellStateChanged(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer) Handles Exgrid1.CellStateChanged
With Exgrid1
.Items.set_SelectItem(Item,True)
End With
End Sub
With Exgrid1
.Columns.Add("Check").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,True)
With .Items
.AddItem(0)
.AddItem(1)
.AddItem(2)
.AddItem(3)
End With
End With
|
|
697
|
Is it possible to limit the height of the item while resizing
' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exgrid1_AddItem(ByVal sender As System.Object, ByVal Item As Integer) Handles Exgrid1.AddItem
With Exgrid1
.Items.set_ItemMinHeight(Item,18)
.Items.set_ItemMaxHeight(Item,72)
End With
End Sub
With Exgrid1
.BeginUpdate()
.ItemsAllowSizing = exontrol.EXGRIDLib.ItemsAllowSizingEnum.exResizeItem
.ScrollBySingleLine = False
.BackColorAlternate = Color.FromArgb(240,240,240)
.Columns.Add("Names")
With .Items
.AddItem("Mantel")
.AddItem("Mechanik")
.AddItem("Motor")
.AddItem("Murks")
.AddItem("Märchen")
.AddItem("Möhren")
.AddItem("Mühle")
End With
.Columns.Item(0).SortOrder = exontrol.EXGRIDLib.SortOrderEnum.SortAscending
.EndUpdate()
End With
|
|
696
|
Is it possible to copy the hierarchy of the control using the GetItems method
Dim h
With Exgrid1
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Def")
With .Items
h = .AddItem("Root")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
End With
.PutItems(.GetItems(-1))
End With
|
|
695
|
Is it possible to auto-numbering the children items but still keeps the position after filtering
Dim h
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
With .Columns.Add("Items")
.DisplayFilterButton = True
.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
.Filter = "Child 2"
End With
With .Columns.Add("Pos.1")
.FormatColumn = "1 ropos ''"
.Position = 0
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.2")
.FormatColumn = "1 ropos ':'"
.Position = 1
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.3")
.FormatColumn = "1 ropos ':|A-Z'"
.Position = 2
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.4")
.FormatColumn = "1 ropos '|A-Z|'"
.Position = 3
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.5")
.FormatColumn = "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
.Position = 4
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.6")
.FormatColumn = "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
.Position = 5
.Width = 48
.AllowSizing = False
End With
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
694
|
Is it possible to auto-numbering the children items too
Dim h
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Columns.Add("Pos.1")
.FormatColumn = "1 rpos ''"
.Position = 0
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.2")
.FormatColumn = "1 rpos ':'"
.Position = 1
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.3")
.FormatColumn = "1 rpos ':|A-Z'"
.Position = 2
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.4")
.FormatColumn = "1 rpos '|A-Z|'"
.Position = 3
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.5")
.FormatColumn = "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
.Position = 4
.Width = 32
.AllowSizing = False
End With
With .Columns.Add("Pos.6")
.FormatColumn = "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
.Position = 5
.Width = 48
.AllowSizing = False
End With
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
End With
.EndUpdate()
End With
|
|
693
|
Is it possible to cancel or discard the values during validation
' ValidateValue event - Occurs before user changes the cell's value.
Private Sub Exgrid1_ValidateValue(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByVal NewValue As Object, ByRef Cancel As Boolean) Handles Exgrid1.ValidateValue
With Exgrid1
Debug.Print( "ValidateValue" )
Debug.Print( NewValue )
Debug.Print( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. " )
Debug.Print( "The DiscardValidateValue restores back the previously values." )
.DiscardValidateValue()
End With
End Sub
With Exgrid1
.BeginUpdate()
.CauseValidateValue = exontrol.EXGRIDLib.ValidateValueType.exValidateCell
.Columns.Add("Date").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.DateType
.Columns.Add("Text").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
With .Items
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
End With
.EndUpdate()
End With
|
|
692
|
Is it possible to validate the values of the cells only when user leaves the focused item
' ValidateValue event - Occurs before user changes the cell's value.
Private Sub Exgrid1_ValidateValue(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByVal NewValue As Object, ByRef Cancel As Boolean) Handles Exgrid1.ValidateValue
With Exgrid1
Debug.Print( "ValidateValue" )
Debug.Print( NewValue )
Debug.Print( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. " )
Cancel = True
Debug.Print( "You can not leave the item/record until the Cancel is False." )
End With
End Sub
With Exgrid1
.BeginUpdate()
.CauseValidateValue = exontrol.EXGRIDLib.ValidateValueType.exValidateItem
.Columns.Add("Date").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.DateType
.Columns.Add("Text").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
With .Items
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
End With
.EndUpdate()
End With
|
|
691
|
We would like to validate the values of the cells. Is it possible
' ValidateValue event - Occurs before user changes the cell's value.
Private Sub Exgrid1_ValidateValue(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByVal NewValue As Object, ByRef Cancel As Boolean) Handles Exgrid1.ValidateValue
With Exgrid1
Debug.Print( "ValidateValue" )
Debug.Print( NewValue )
Debug.Print( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value." )
Cancel = True
Debug.Print( "You can not leave the cell until the Cancel is False." )
End With
End Sub
With Exgrid1
.BeginUpdate()
.CauseValidateValue = exontrol.EXGRIDLib.ValidateValueType.exValidateCell
.Columns.Add("Date").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.DateType
.Columns.Add("Text").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
With .Items
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
.set_CellValue(.AddItem(#1/1/2001#),1,"text")
End With
.EndUpdate()
End With
|
|
690
|
Is there any way to add auto-numbering
With Exgrid1
With .Columns
.Add("Items")
With .Add("Pos")
.FormatColumn = "1 pos ''"
.Position = 0
End With
End With
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
End With
End With
|
|
689
|
Does your control supports multiple lines tooltip
With Exgrid1
.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
.ToolTipDelay = 1
.Columns.Add("tootip").ToolTip = "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, " & _
"icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>"
End With
|
|
688
|
How can I prevent highlighting the column from the cursor - point
With Exgrid1
.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJ" & _
"gEgI=")
.set_Background32(exontrol.EXGRIDLib.BackgroundPartEnum.exCursorHoverColumn,&H1000000)
.Columns.Add("S").Width = 32
.Columns.Add("Level 1").LevelKey = 1
.Columns.Add("Level 2").LevelKey = 1
.Columns.Add("Level 3").LevelKey = 1
.Columns.Add("E1").Width = 32
.Columns.Add("E2").Width = 32
.Columns.Add("E3").Width = 32
.Columns.Add("E4").Width = 32
End With
|
|
687
|
Is it possible display numbers in the same format no matter of regional settings in the control panel
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Def").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
With .Items
h = .AddItem(100000.27)
.set_FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default positive)'")
h = .AddItem(100000.27)
.set_FormatCell(h,0,"(value format '2|.|3|,|1|1')")
h = .AddItem(-100000.27)
.set_FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default negative)'")
h = .AddItem(-100000.27)
.set_FormatCell(h,0,"(value format '2|.|3|,|1|1')")
End With
.EndUpdate()
End With
|
|
686
|
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Def").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
With .Items
h = .AddItem(0.27)
.set_FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'")
h = .AddItem(0.27)
.set_FormatCell(h,0,"(value format '|||||0') + ' <fgcolor=808080>(Display no leading zeros)'")
End With
.EndUpdate()
End With
|
|
685
|
How can I specify the format for negative numbers
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Def").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
With .Items
h = .AddItem(-100000.27)
.set_FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'")
h = .AddItem(-100000.27)
.set_FormatCell(h,0,"(value format '||||1') + ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'")
End With
.EndUpdate()
End With
|
|
684
|
Is it possible to change the grouping character when display numbers
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Def").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
With .Items
h = .AddItem(100000.27)
.set_FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'")
h = .AddItem(100000.27)
.set_FormatCell(h,0,"(value format '|||-') + ' <fgcolor=808080>(grouping character is -)'")
End With
.EndUpdate()
End With
|
|
683
|
How can I display numbers with 2 digits in each group
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Def").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
With .Items
h = .AddItem(100000.27)
.set_FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'")
h = .AddItem(100000.27)
.set_FormatCell(h,0,"(value format '||2') + ' <fgcolor=808080>(grouping by 2 digits)'")
End With
.EndUpdate()
End With
|
|
682
|
How can I display my numbers using a different decimal separator
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Def").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
With .Items
h = .AddItem(100.27)
.set_FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'")
h = .AddItem(100.27)
.set_FormatCell(h,0,"(value format '|;') + ' <fgcolor=808080>(decimal separator is <b>;</b>)'")
End With
.EndUpdate()
End With
|
|
681
|
Is it possible to display the numbers using 3 (three) digits
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Def").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
With .Items
h = .AddItem(100.27)
.set_FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'")
h = .AddItem(100.27)
.set_FormatCell(h,0,"(value format '3') + ' <fgcolor=808080>(3 digits)'")
h = .AddItem(100.27)
.set_FormatCell(h,0,"(value format 2) + ' <fgcolor=808080>(2 digits)'")
h = .AddItem(100.27)
.set_FormatCell(h,0,"(value format 1) + ' <fgcolor=808080>(1 digit)'")
End With
.EndUpdate()
End With
|
|
680
|
Is there any option to show the tooltip programmatically
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exgrid1.MouseMoveEvent
Dim c,hit
With Exgrid1
.ShowToolTip(.get_ItemFromPoint(-1,-1,c,hit),"","8","8")
End With
End Sub
With Exgrid1
.BeginUpdate()
.Columns.Add("Def")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
End With
.EndUpdate()
End With
|
|
679
|
How can I specify the column's width to be the same for all columns
With Exgrid1
With .Columns
.Add("A")
.Add("B")
.Add("C")
End With
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
.ColumnAutoResize = True
End With
|
|
678
|
How can I set the column's width to my desired width
With Exgrid1
.ColumnAutoResize = False
With .Columns
.Add("A").Width = 128
.Add("B").Width = 128
End With
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
End With
|
|
677
|
Is it possible to format numbers
Dim h,h1
With Exgrid1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns
.Add("Name")
With .Add("A")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' +'"
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("B")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' +'"
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("C")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' ='"
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("A+B+C")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
.Width = 64
.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00" & _
"00FF>+'+(value format '2|.|3|,' ): '0.00') )"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
End With
End With
With .Items
h = .AddItem("Root")
.set_CellValueFormat(h,4,exontrol.EXGRIDLib.ValueFormatEnum.exComputedField)
h1 = .InsertItem(h,Nothing,"Child 1")
.set_CellValue(h1,1,7)
.set_CellValue(h1,2,3)
.set_CellValue(h1,3,1)
h1 = .InsertItem(h,Nothing,"Child 2")
.set_CellValue(h1,1,-2)
.set_CellValue(h1,2,-2)
.set_CellValue(h1,3,-4)
h1 = .InsertItem(h,Nothing,"Child 3")
.set_CellValue(h1,1,2)
.set_CellValue(h1,2,2)
.set_CellValue(h1,3,-4)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
676
|
How can I collapse all items
Dim h
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.set_ExpandItem(0,False)
End With
.EndUpdate()
End With
|
|
675
|
How can I expand all items
Dim h
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.set_ExpandItem(0,True)
End With
.EndUpdate()
End With
|
|
674
|
Can I display a total field without having to add a child item
Dim h
With Exgrid1
.BeginUpdate()
With .Columns.Add("Numbers")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
With .Editor
.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
.Numeric = exontrol.EXGRIDLib.NumericEnum.exFloat
End With
End With
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,0)
.set_CellValue(h,0,"sum(all,dir,dbl(%0))")
.set_SortableItem(h,False)
.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_FormatCell(h,0,"'SUM: '+value")
End With
.EndUpdate()
End With
|
|
673
|
Can I display the number of child items
Dim h,hx
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
.Columns.Add("")
With .Items
h = .AddItem("Root 1")
hx = .get_SplitCell(h,0)
.set_CellValue(0,hx,"count(current,dir,1)")
.set_CellValueFormat(0,hx,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
.set_FormatCell(0,hx,"'Childs: ' + value")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
hx = .get_SplitCell(h,0)
.set_CellValue(0,hx,"count(current,dir,1)")
.set_CellValueFormat(0,hx,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
.set_FormatCell(0,hx,"'Childs: ' + value")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.InsertItem(h,Nothing,"Child 3")
.InsertItem(h,Nothing,"Child 4")
End With
.EndUpdate()
End With
|
|
672
|
My field does not display the correctly computed value if I enter data using the control's editors ( concatenation of strings ). What am I doing wrong
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("T")
With .Columns.Add("A").Editor
.Numeric = exontrol.EXGRIDLib.NumericEnum.exInteger
.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Columns.Add("B").Editor
.Numeric = exontrol.EXGRIDLib.NumericEnum.exInteger
.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
.Columns.Add("A+B")
With .Items
h = .AddItem("Incorrect")
.set_CellToolTip(h,0,"Just type a number in the column A or B. The result will be concaternated")
.set_CellValue(h,1,"10")
.set_CellValue(h,2,"20")
.set_CellValue(h,3,"currency(%1+%2)")
.set_CellValueFormat(h,3,exontrol.EXGRIDLib.ValueFormatEnum.exComputedField)
h = .AddItem("Correct")
.set_CellValue(h,1,10)
.set_CellValue(h,2,20)
.set_CellValue(h,3,"currency(dbl(%1)+dbl(%2))")
.set_CellValueFormat(h,3,exontrol.EXGRIDLib.ValueFormatEnum.exComputedField)
End With
.EndUpdate()
End With
|
|
671
|
The CellValue/CellCaption property gets the result of a computed/total field with text formatting. Is it possible to get that value without text formatting
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("A").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
.Columns.Add("B").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
.Columns.Add("A+B")
With .Items
h = .AddItem(10)
.set_CellValue(h,1,20)
.set_CellValueFormat(h,2,exontrol.EXGRIDLib.ValueFormatEnum.exComputedField)
.set_CellValue(h,2,"currency(dbl(%0)+dbl(%1))")
Debug.Print( "CellCaption returns " )
Debug.Print( .get_CellCaption(h,2) )
Debug.Print( "CellValue returns " )
Debug.Print( .get_CellValue(h,2) )
Debug.Print( "ComputeValue returns " )
Debug.Print( .get_ComputeValue("dbl(%0)+dbl(%1)",h,0,.get_CellValueFormat(h,2)) )
End With
.EndUpdate()
End With
|
|
670
|
Can I get the result of a specified formula as your control does using the ComputedField property
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("A")
.Columns.Add("B")
With .Items
h = .AddItem(10)
.set_CellValue(h,1,20)
Debug.Print( "A+B is " )
Debug.Print( .get_ComputeValue("dbl(%0)+dbl(%1)",h,0,2) )
End With
.EndUpdate()
End With
|
|
669
|
Is it possible to get the text without HTML formatting
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("")
With .Items
h = .AddItem("<b>bold</b>")
Debug.Print( .get_ComputeValue(.get_CellValue(h,0),h,0,1) )
End With
.EndUpdate()
End With
|
|
668
|
Can I specify an item to be a separator
Dim h
With Exgrid1
.BeginUpdate()
.TreeColumnIndex = -1
.SortOnClick = exontrol.EXGRIDLib.SortOnClickEnum.exNoSort
.Columns.Add("Numbers")
With .Items
.AddItem(1)
.AddItem(2)
h = .AddItem("separator")
.set_SelectableItem(h,False)
.set_ItemDivider(h,0)
.set_ItemDividerLineAlignment(h,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerCenter)
.set_ItemDividerLine(h,exontrol.EXGRIDLib.DividerLineEnum.ThinLine)
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment)
.AddItem(3)
.AddItem(4)
End With
.EndUpdate()
End With
|
|
667
|
How can I count only non-zero values
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Numbers").SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(0)
.AddItem(0)
.AddItem(0)
.AddItem(0)
.AddItem(3)
.AddItem(4)
h = .AddItem("sum(all,dir,dbl(%0)?1:0)")
.set_SortableItem(h,False)
.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_FormatCell(h,0,"'COUNT non-zero: '+value")
End With
.EndUpdate()
End With
|
|
666
|
How can I add a AVG ( average ) field
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Numbers").SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
h = .AddItem("avg(all,dir,dbl(%0))")
.set_SortableItem(h,False)
.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_FormatCell(h,0,"'AVG: '+value")
End With
.EndUpdate()
End With
|
|
665
|
How can I add a COUNT field
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Numbers").SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
h = .AddItem("count(all,dir,0)")
.set_SortableItem(h,False)
.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_FormatCell(h,0,"'COUNT: '+value")
End With
.EndUpdate()
End With
|
|
664
|
How can I add a MAX field
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Numbers").SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
h = .AddItem("max(all,dir,dbl(%0))")
.set_SortableItem(h,False)
.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_FormatCell(h,0,"'MAX: '+value")
End With
.EndUpdate()
End With
|
|
663
|
How can I add a MIN or MAX field (for numbers)
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Numbers").SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(11)
.AddItem(21)
.AddItem(3)
.AddItem(4)
h = .AddItem("min(all,dir,dbl(%0))")
.set_SortableItem(h,False)
.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_FormatCell(h,0,"'MIN: '+value")
h = .AddItem("max(all,dir,dbl(%0))")
.set_SortableItem(h,False)
.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_FormatCell(h,0,"'MAX: '+value")
End With
.EndUpdate()
End With
|
|
662
|
How can I add a SUM field
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Numbers").SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
h = .AddItem("sum(all,dir,dbl(%0))")
.set_SortableItem(h,False)
.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_FormatCell(h,0,"'SUM: '+value")
End With
.EndUpdate()
End With
|
|
661
|
How can I add total and subtotals fields
' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
With Exgrid1
.Refresh()
End With
End Sub
Dim h
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
.Columns.Add("Members")
With .Columns.Add("Values")
.FormatColumn = "currency(value)"
With .Editor
.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
.Numeric = exontrol.EXGRIDLib.NumericEnum.exInteger
End With
End With
With .Items
h = .AddItem("Group 1")
.set_ItemBold(h,True)
.set_CellEditorVisible(h,1,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorHidden)
.set_CellValue(h,1,"sum(current,dir,dbl(%1))")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
.set_CellHAlignment(h,1,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_CellValue(.InsertItem(h,Nothing,"Child 1"),1,10)
.set_CellValue(.InsertItem(h,Nothing,"Child 2"),1,20)
.set_CellValue(.InsertItem(h,Nothing,"Child 3"),1,30)
.set_ExpandItem(h,True)
h = .AddItem("Group 2")
.set_ItemBold(h,True)
.set_CellEditorVisible(h,1,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorHidden)
.set_CellValue(h,1,"sum(current,dir,dbl(%1))")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
.set_CellHAlignment(h,1,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_CellValue(.InsertItem(h,Nothing,"Child 1"),1,5)
.set_CellValue(.InsertItem(h,Nothing,"Child 2"),1,15)
.set_CellValue(.InsertItem(h,Nothing,"Child 3"),1,35)
h = .AddItem("total")
.set_CellValue(h,1,"sum(all,rec,dbl(%1))")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
.set_CellEditorVisible(h,1,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorHidden)
.set_FormatCell(h,1,"'Total: <b>' + currency(value)")
.set_CellHAlignment(h,1,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_ItemDivider(h,1)
.set_ItemDividerLineAlignment(h,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerCenter)
.set_ItemDividerLine(h,exontrol.EXGRIDLib.DividerLineEnum.DoubleLine)
.set_SortableItem(h,False)
End With
.EndUpdate()
End With
|
|
660
|
Is is possible to have subtotal items, and a grand total item
' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
With Exgrid1
.Refresh()
End With
End Sub
Dim h,hT
With Exgrid1
.BeginUpdate()
.BackColor = Color.FromArgb(255,255,255)
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exGroupLinesAtRoot
.ShowFocusRect = False
.Columns.Add("Members")
With .Columns.Add("Values")
.FormatColumn = "currency(value)"
With .Editor
.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
.Numeric = exontrol.EXGRIDLib.NumericEnum.exInteger
End With
End With
With .Items
h = .AddItem("Group 1")
.set_ItemBold(h,True)
.set_SortableItem(h,False)
.set_CellEditorVisible(h,1,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorHidden)
.set_FormatCell(h,1," ")
.set_CellValue(.InsertItem(h,Nothing,"Child 1"),1,10)
.set_CellValue(.InsertItem(h,Nothing,"Child 2"),1,20)
.set_CellValue(.InsertItem(h,Nothing,"Child 3"),1,30)
hT = .InsertItem(h,Nothing,"subtotal")
.set_CellHAlignment(hT,1,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_CellEditorVisible(hT,1,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorHidden)
.set_CellValue(hT,1,"sum(parent,dir,dbl(%1))")
.set_CellValueFormat(hT,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
.set_FormatCell(hT,1,"'subtotal: <b>' + currency(value)")
.set_ItemDivider(hT,1)
.set_ItemDividerLineAlignment(hT,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerCenter)
.set_SortableItem(hT,False)
.set_SelectableItem(hT,False)
.set_ItemDividerLine(hT,exontrol.EXGRIDLib.DividerLineEnum.DotLine)
.set_ExpandItem(h,True)
h = .AddItem("Group 2")
.set_ItemBold(h,True)
.set_SortableItem(h,False)
.set_FormatCell(h,1," ")
.set_CellEditorVisible(h,1,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorHidden)
.set_CellValue(.InsertItem(h,Nothing,"Child 1"),1,15)
.set_CellValue(.InsertItem(h,Nothing,"Child 2"),1,25)
.set_CellValue(.InsertItem(h,Nothing,"Child 3"),1,18)
hT = .InsertItem(h,Nothing,"subtotal")
.set_CellHAlignment(hT,1,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_CellEditorVisible(hT,1,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorHidden)
.set_CellValue(hT,1,"sum(parent,dir,dbl(%1))")
.set_CellValueFormat(hT,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
.set_FormatCell(hT,1,"'subtotal: <b>' + currency(value)")
.set_ItemDivider(hT,1)
.set_ItemDividerLineAlignment(hT,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerCenter)
.set_ItemDividerLine(hT,exontrol.EXGRIDLib.DividerLineEnum.DotLine)
.set_SortableItem(hT,False)
.set_SelectableItem(hT,False)
.set_ExpandItem(h,True)
h = .AddItem("total")
.set_CellValue(h,1,"sum(all,rec,dbl(%1))")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
.set_CellEditorVisible(h,1,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorHidden)
.set_FormatCell(h,1,"'Total: <b><font ;11>' + currency(value)")
.set_CellHAlignment(h,1,exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment)
.set_ItemDivider(h,1)
.set_ItemDividerLineAlignment(h,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerCenter)
.set_ItemDividerLine(h,exontrol.EXGRIDLib.DividerLineEnum.DoubleLine)
.set_SortableItem(h,False)
.set_SelectableItem(h,False)
End With
.EndUpdate()
End With
|
|
659
|
Is it possible to have a total field for each column
' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
With Exgrid1
.Refresh()
End With
End Sub
Dim h
With Exgrid1
.BeginUpdate()
With .Columns.Add("C1")
With .Editor
.Numeric = exontrol.EXGRIDLib.NumericEnum.exInteger
.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
End With
With .Columns.Add("C2")
With .Editor
.Numeric = exontrol.EXGRIDLib.NumericEnum.exInteger
.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exBottom,0)
.set_ItemBackColor(h,Color.FromArgb(240,240,240))
.set_ItemBold(h,True)
.set_CellValue(h,0,"sum(all,dir,dbl(%0))")
.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
.set_CellValue(h,1,"sum(all,dir,dbl(%1))")
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
End With
With .Items
.set_CellValue(.AddItem(10),1,12)
.set_CellValue(.AddItem(25),1,5)
.set_CellValue(.AddItem(31),1,17)
.set_CellValue(.AddItem(48),1,22)
End With
.EndUpdate()
End With
|
|
658
|
How can I add a total field for a DataSource being used
' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
With Exgrid1
.Refresh()
End With
End Sub
Dim h,rs
With Exgrid1
.ColumnAutoResize = False
.ContinueColumnScroll = False
rs = New ADODB.Recordset()
With rs
.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
End With
.DataSource = rs
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_ItemDivider(h,0)
.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
.set_CellValue(h,0,"sum(all,dir,%1)")
End With
End With
|
|
657
|
How can I add a total field
' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
With Exgrid1
.Refresh()
End With
End Sub
Dim h
With Exgrid1
.BeginUpdate()
With .Columns.Add("Numbers")
With .Editor
.Numeric = exontrol.EXGRIDLib.NumericEnum.exInteger
.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
End With
With .Items
.set_LockedItemCount(exontrol.EXGRIDLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXGRIDLib.VAlignmentEnum.exTop,0)
.set_ItemBackColor(h,Color.FromArgb(240,240,240))
.set_CellValue(h,0,"sum(all,dir,dbl(%0))")
.set_CellValueFormat(h,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField)
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_FormatCell(h,0,"'Total: '+value")
End With
With .Items
.AddItem(10)
.AddItem(25)
.AddItem(31)
.AddItem(48)
End With
.EndUpdate()
End With
|
|
656
|
How can I add a total field
' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
With Exgrid1
.Refresh()
End With
End Sub
Dim h,hT
With Exgrid1
.BeginUpdate()
With .Columns.Add("Items").Editor
.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
.Numeric = exontrol.EXGRIDLib.NumericEnum.exInteger
End With
With .Items
h = .AddItem("Group 1")
.set_CellEditorVisible(h,0,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorHidden)
.InsertItem(h,Nothing,10)
.InsertItem(h,Nothing,20)
.InsertItem(h,Nothing,30)
hT = .InsertItem(h,Nothing,"sum(parent,dir,dbl(%0))")
.set_CellEditorVisible(hT,0,exontrol.EXGRIDLib.EditorVisibleEnum.exEditorHidden)
.set_CellValueFormat(hT,0,exontrol.EXGRIDLib.ValueFormatEnum.exTotalField Or exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
.set_ItemDivider(hT,0)
.set_ItemDividerLineAlignment(hT,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerTop)
.set_SelectableItem(hT,False)
.set_SortableItem(hT,False)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
655
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Value")
.Columns.Add("FormatCell")
With .Items
h = .AddItem(1)
.set_CellValue(h,1,12)
.set_FormatCell(h,1,"currency(value)")
h = .AddItem(#1/1/2001#)
.set_CellValue(h,1,#1/1/2001#)
.set_CellValueFormat(h,1,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
.set_FormatCell(h,1,"longdate(value) replace '2001' with '<b>2001</b>'")
End With
.EndUpdate()
End With
|
|
654
|
How can I simulate displaying groups
Dim h,h1
With Exgrid1
.HasLines = exontrol.EXGRIDLib.HierarchyLineEnum.exNoLine
.ScrollBySingleLine = True
With .Columns
.Add("Name")
.Add("A")
.Add("B")
.Add("C")
End With
With .Items
h = .AddItem("Group 1")
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment)
.set_ItemDivider(h,0)
.set_ItemDividerLineAlignment(h,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerBoth)
.set_ItemHeight(h,24)
.set_SortableItem(h,False)
h1 = .InsertItem(h,Nothing,"Child 1")
.set_CellValue(h1,1,1)
.set_CellValue(h1,2,2)
.set_CellValue(h1,3,3)
h1 = .InsertItem(h,Nothing,"Child 2")
.set_CellValue(h1,1,4)
.set_CellValue(h1,2,5)
.set_CellValue(h1,3,6)
.set_ExpandItem(h,True)
h = .AddItem("Group 2")
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment)
.set_ItemDivider(h,0)
.set_ItemDividerLineAlignment(h,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerBoth)
.set_ItemHeight(h,24)
.set_SortableItem(h,False)
h1 = .InsertItem(h,Nothing,"Child 1")
.set_CellValue(h1,1,1)
.set_CellValue(h1,2,2)
.set_CellValue(h1,3,3)
h1 = .InsertItem(h,Nothing,"Child 2")
.set_CellValue(h1,1,4)
.set_CellValue(h1,2,5)
.set_CellValue(h1,3,6)
.set_ExpandItem(h,True)
End With
End With
|
|
653
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
Dim h
With Exgrid1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns
.Add("Name")
With .Add("Values")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 64
.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
End With
End With
With .Items
h = .AddItem("Root")
.set_FormatCell(h,1,"'<none>'")
.set_CellValue(.InsertItem(h,Nothing,"Child 1"),1,10)
.set_CellValue(.InsertItem(h,Nothing,"Child 2"),1,15)
.set_CellValue(.InsertItem(h,Nothing,"Child 3"),1,25)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
652
|
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible
Dim h
With Exgrid1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns
.Add("Name")
With .Add("Values")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 64
.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
End With
End With
With .Items
h = .AddItem("Root")
.set_FormatCell(h,1," ")
.set_CellValue(.InsertItem(h,Nothing,"Child 1"),1,10)
.set_CellValue(.InsertItem(h,Nothing,"Child 2"),1,15)
.set_CellValue(.InsertItem(h,Nothing,"Child 3"),1,25)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
651
|
How can I specify an item to be always the first item
Dim h
With Exgrid1
.BeginUpdate()
.TreeColumnIndex = -1
.Columns.Add("Numbers").SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
h = .AddItem("first")
.set_ItemPosition(h,0)
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_SortableItem(h,False)
.SortChildren(0,0,False)
End With
.EndUpdate()
End With
|
|
650
|
How can I specify an item to be always the last item
Dim h
With Exgrid1
.BeginUpdate()
.TreeColumnIndex = -1
.Columns.Add("Numbers").SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
h = .AddItem("last")
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_SortableItem(h,False)
.SortChildren(0,0,True)
End With
.EndUpdate()
End With
|
|
649
|
Can I allow sorting only the child items
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("Childs")
With .Items
h = .AddItem("Root 1")
.set_SortableItem(h,False)
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.set_ExpandItem(h,True)
h = .AddItem("Root 2")
.set_SortableItem(h,False)
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
648
|
Can I specify a terminal item so it will mark the end of childs
Dim h
With Exgrid1
.BeginUpdate()
.ScrollBySingleLine = True
.Columns.Add("P1")
With .Items
h = .AddItem("Root 1")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.set_ExpandItem(h,True)
h = .InsertItem(h,"","")
.set_ItemDivider(h,0)
.set_ItemDividerLineAlignment(h,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerCenter)
.set_ItemHeight(h,2)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
h = .AddItem("Root 2")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.set_ExpandItem(h,True)
h = .InsertItem(h,"","")
.set_ItemDivider(h,0)
.set_ItemDividerLineAlignment(h,exontrol.EXGRIDLib.DividerAlignmentEnum.DividerCenter)
.set_ItemHeight(h,2)
.set_SelectableItem(h,False)
.set_SortableItem(h,False)
End With
.EndUpdate()
End With
|
|
647
|
Is it possible to specify an item being unsortable so its position won't be changed after sorting
Dim h
With Exgrid1
.BeginUpdate()
.TreeColumnIndex = -1
.Columns.Add("Numbers").SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
With .Items
.AddItem(1)
.AddItem(2)
.AddItem(3)
.AddItem(4)
h = .AddItem("top 3")
.set_ItemPosition(h,3)
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.RightAlignment)
.set_SortableItem(h,False)
.SortChildren(0,0,False)
End With
.EndUpdate()
End With
|
|
646
|
Is it possible to move an item from a parent to another
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
.AddItem("A")
.AddItem("B")
.InsertItem(.AddItem("C"),"","D")
.SetParent(.get_FindItem("D",0),.get_FindItem("A",0))
End With
.EndUpdate()
End With
|
|
645
|
How can I change the identation for an item
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
.AddItem("A")
.AddItem("B")
.InsertItem(.AddItem("C"),"","D")
.SetParent(.get_FindItem("D",0),0)
End With
.EndUpdate()
End With
|
|
644
|
How can I arrange the control's header on multiple levels
Dim h
With Exgrid1
.BeginUpdate()
.DefaultItemHeight = 48
With .Columns
.Add("Title").Visible = False
.Add("FirstName").Visible = False
.Add("LastName").Visible = False
.Add("Photo").Visible = False
With .Add("Address")
.Visible = False
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellSingleLine,False)
End With
With .Add("Personal Info")
.FormatLevel = "3:48,(0/1/2),4:96"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellFormatLevel,"3:48,(0/1/2),4:96")
End With
End With
With .Items
h = .AddItem("Sales Representative")
.set_CellValue(h,1,"Nancy")
.set_CellValue(h,2,"Davolio")
.set_CellPicture(h,3,Exgrid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)"))
.set_CellValue(h,4,"507-20th Ave. E.Apt. 2A")
End With
.EndUpdate()
End With
|
|
643
|
How can I filter programatically using more columns
With Exgrid1
.BeginUpdate()
With .Columns
.Add("Car")
.Add("Equipment")
End With
With .Items
.set_CellValue(.AddItem("Mazda"),1,"Air Bag")
.set_CellValue(.AddItem("Toyota"),1,"Air Bag,Air condition")
.set_CellValue(.AddItem("Ford"),1,"Air condition")
.set_CellValue(.AddItem("Nissan"),1,"Air Bag,ABS,ESP")
.set_CellValue(.AddItem("Mazda"),1,"Air Bag, ABS,ESP")
.set_CellValue(.AddItem("Mazda"),1,"ABS,ESP")
End With
With .Columns.Item("Car")
.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exFilter
.Filter = "Mazda"
End With
With .Columns.Item("Equipment")
.FilterType = exontrol.EXGRIDLib.FilterTypeEnum.exPattern
.Filter = "*ABS*|*ESP*"
End With
.ApplyFilter()
.EndUpdate()
End With
|
|
642
|
How can I show the ticks for a single slider field
With Exgrid1
.BeginUpdate()
.Columns.Add("Slider").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SliderType
With .Items
.AddItem(10)
With .get_CellEditor(.AddItem(20),0)
.EditType = exontrol.EXGRIDLib.EditTypeEnum.SliderType
.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exSliderTickFrequency,10)
End With
.AddItem(30)
End With
.EndUpdate()
End With
|
|
641
|
Is it possible to show ticks for slider fields
With Exgrid1
With .Columns.Add("Slider").Editor
.EditType = exontrol.EXGRIDLib.EditTypeEnum.SliderType
.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exSliderTickFrequency,10)
End With
.Items.AddItem(10)
End With
|
|
640
|
Is it possible to colour a particular column, I mean the cell's foreground color
With Exgrid1
.BeginUpdate()
With .ConditionalFormats.Add("1")
.ForeColor = Color.FromArgb(255,0,0)
.ApplyTo = &H1
End With
.MarkSearchColumn = False
With .Columns
.Add("Column 1")
.Add("Column 2")
End With
With .Items
.set_CellValue(.AddItem(0),1,1)
.set_CellValue(.AddItem(2),1,3)
.set_CellValue(.AddItem(4),1,5)
End With
.EndUpdate()
End With
|
|
639
|
Is it possible to colour a particular column for specified values
With Exgrid1
.BeginUpdate()
With .ConditionalFormats.Add("int(%1) in (3,4,5)")
.BackColor = Color.FromArgb(255,0,0)
.ApplyTo = &H1
End With
.MarkSearchColumn = False
With .Columns
.Add("Column 1")
.Add("Column 2")
End With
With .Items
.set_CellValue(.AddItem(0),1,1)
.set_CellValue(.AddItem(2),1,3)
.set_CellValue(.AddItem(4),1,5)
End With
.EndUpdate()
End With
|
|
638
|
Is it possible to colour a particular column
With Exgrid1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns
.Add("Column 1")
.Add("Column 2").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellBackColor,255)
End With
With .Items
.set_CellValue(.AddItem(0),1,1)
.set_CellValue(.AddItem(2),1,3)
.set_CellValue(.AddItem(4),1,5)
End With
.EndUpdate()
End With
|
|
637
|
How do i get all the children items that are under a certain parent Item handle
Dim h,hChild
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("P")
With .Items
h = .AddItem("Root")
.InsertItem(h,Nothing,"Child 1")
.InsertItem(h,Nothing,"Child 2")
.set_ExpandItem(h,True)
End With
With .Items
hChild = .get_ItemChild(.FirstVisibleItem)
Debug.Print( .get_CellValue(hChild,0) )
Debug.Print( .get_CellValue(.get_NextSiblingItem(hChild),0) )
End With
.EndUpdate()
End With
|
|
636
|
Is is possible to use HTML tags to display in the filter caption
With Exgrid1
.BeginUpdate()
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarCaption = "This is a bit of text being displayed in the filter bar."
.Columns.Add("")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
End With
.EndUpdate()
End With
|
|
635
|
How can I find the number of items after filtering
Dim h
With Exgrid1
.BeginUpdate()
.Columns.Add("")
With .Items
h = .AddItem("")
.set_CellValue(h,0,.VisibleItemCount)
End With
.EndUpdate()
End With
|
|
634
|
How can I change the filter caption
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptWords Or exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
.FilterBarPromptPattern = "london robert"
.FilterBarCaption = "<r>Found: ... "
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
633
|
While using the filter prompt is it is possible to use wild characters
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptPattern
.FilterBarPromptPattern = "lon* seat*"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
632
|
How can I list all items that contains any of specified words, not necessary at the beggining
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptStartWords Or exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAny
.FilterBarPromptPattern = "london davolio"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
631
|
How can I list all items that contains any of specified words, not strings
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptWords Or exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAny
.FilterBarPromptPattern = "london nancy"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
630
|
How can I list all items that contains all specified words, not strings
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptWords Or exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
.FilterBarPromptPattern = "london robert"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
629
|
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptCaseSensitive Or exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAny
.FilterBarPromptPattern = "Anne"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
628
|
Is it possible to list only items that ends with any of specified strings
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptEndWith
.FilterBarPromptColumns = "0"
.FilterBarPromptPattern = "Fuller"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
627
|
Is it possible to list only items that ends with any of specified strings
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptEndWith
.FilterBarPromptColumns = "0"
.FilterBarPromptPattern = "Fuller"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
626
|
Is it possible to list only items that starts with any of specified strings
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptStartWith
.FilterBarPromptColumns = "0"
.FilterBarPromptPattern = "An M"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
625
|
Is it possible to list only items that starts with specified string
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptStartWith
.FilterBarPromptColumns = "0"
.FilterBarPromptPattern = "A"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
624
|
How can I specify that the list should include any of the seqeunces in the pattern
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAny
.FilterBarPromptPattern = "london seattle"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
623
|
How can I specify that all sequences in the filter pattern must be included in the list
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptType = exontrol.EXGRIDLib.FilterPromptEnum.exFilterPromptContainsAll
.FilterBarPromptPattern = "london manager"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
622
|
How do I change at runtime the filter prompt
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptPattern = "london manager"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
621
|
How do I specify to filter only a single column when using the filter prompt
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPromptColumns = "2,3"
.FilterBarPromptPattern = "london"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
620
|
How do I change the prompt or the caption being displayed in the filter bar
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
.FilterBarPrompt = "changed"
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
.EndUpdate()
End With
|
|
619
|
How do I enable the filter prompt feature
Dim h0
With Exgrid1
.BeginUpdate()
.ColumnAutoResize = True
.ContinueColumnScroll = False
.FocusColumnIndex = 1
.MarkSearchColumn = False
.SearchColumnIndex = 1
.FilterBarPromptVisible = exontrol.EXGRIDLib.FilterBarVisibleEnum.exFilterBarPromptVisible
With .Columns
.Add("Name").Width = 96
.Add("Title").Width = 96
.Add("City")
End With
With .Items
h0 = .AddItem("Nancy Davolio")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Andrew Fuller")
.set_CellValue(h0,1,"Vice President, Sales")
.set_CellValue(h0,2,"Tacoma")
.set_SelectItem(h0,True)
h0 = .AddItem("Janet Leverling")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Kirkland")
h0 = .AddItem("Margaret Peacock")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"Redmond")
h0 = .AddItem("Steven Buchanan")
.set_CellValue(h0,1,"Sales Manager")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Michael Suyama")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Robert King")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
h0 = .AddItem("Laura Callahan")
.set_CellValue(h0,1,"Inside Sales Coordinator")
.set_CellValue(h0,2,"Seattle")
h0 = .AddItem("Anne Dodsworth")
.set_CellValue(h0,1,"Sales Representative")
.set_CellValue(h0,2,"London")
End With
.EndUpdate()
End With
|
|
618
|
How can I control the colors that can be applied to an EBN part
' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
With Exgrid1
With .Items
.set_ItemBackColor(.FirstVisibleItem,NewValue)
End With
End With
End Sub
Dim h
With Exgrid1
.BeginUpdate()
With .VisualAppearance
.Add(2,"c:\exontrol\images\normal.ebn")
.Add(1,"CP:2 10 3 -10 -5")
End With
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
.ScrollBySingleLine = True
.TreeColumnIndex = -1
With .Columns
With .Add("Test")
.Width = 32
End With
With .Add("RGB")
With .Editor
.EditType = exontrol.EXGRIDLib.EditTypeEnum.SliderType
.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exSliderMax,255)
.set_Option(exontrol.EXGRIDLib.EditorOptionEnum.exSliderWidth,-60)
End With
End With
End With
With .Items
h = .AddItem("")
.set_CellHAlignment(h,0,exontrol.EXGRIDLib.AlignmentEnum.CenterAlignment)
.set_ItemDivider(h,0)
.set_ItemBackColor32(h,&H1000000)
.set_ItemHeight(h,36)
.set_SelectableItem(h,False)
h = .InsertItem(0,1,"Red")
.set_CellValue(h,1,255)
h = .InsertItem(0,255,"Green")
.set_CellValue(h,1,255)
h = .InsertItem(0,65536,"Blue")
.set_CellValue(h,1,255)
End With
.EndUpdate()
End With
|
|
617
|
I know this is fairly basic, but could you send me a sample that places a tree in the first column
Dim h
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("heading")
With .Items
h = .AddItem("Parent 1")
.InsertItem(h,Nothing,"Child A")
.InsertItem(.InsertItem(h,Nothing,"Child B"),Nothing,"GrandChild C")
.set_ExpandItem(h,True)
h = .AddItem("Parent 2")
.InsertItem(h,Nothing,"Child D")
.InsertItem(h,Nothing,"Child E")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
616
|
How can I get the caption of focused item
' SelectionChanged event - Fired after a new item has been selected.
Private Sub Exgrid1_SelectionChanged(ByVal sender As System.Object) Handles Exgrid1.SelectionChanged
With Exgrid1
With .Items
Debug.Print( "Handle" )
Debug.Print( .FocusItem )
Debug.Print( "Caption" )
Debug.Print( .get_CellCaption(.FocusItem,0) )
End With
End With
End Sub
Dim h
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"Cell 1.1")
.InsertItem(h,Nothing,"Cell 1.2")
.set_ExpandItem(h,True)
h = .AddItem("R2")
.InsertItem(h,Nothing,"Cell 2.1")
.InsertItem(h,Nothing,"Cell 2.2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
615
|
How can I get the caption of selected item
' SelectionChanged event - Fired after a new item has been selected.
Private Sub Exgrid1_SelectionChanged(ByVal sender As System.Object) Handles Exgrid1.SelectionChanged
With Exgrid1
With .Items
Debug.Print( "Handle" )
Debug.Print( .get_SelectedItem(0) )
Debug.Print( "Caption" )
Debug.Print( .get_CellCaption(.get_SelectedItem(0),0) )
End With
End With
End Sub
Dim h
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"Cell 1.1")
.InsertItem(h,Nothing,"Cell 1.2")
.set_ExpandItem(h,True)
h = .AddItem("R2")
.InsertItem(h,Nothing,"Cell 2.1")
.InsertItem(h,Nothing,"Cell 2.2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
614
|
Is it possible to let users selects cells as in Excel
Dim h,h1
With Exgrid1
.BeginUpdate()
.FullRowSelect = exontrol.EXGRIDLib.CellSelectEnum.exRectSel
.SingleSel = False
.ReadOnly = exontrol.EXGRIDLib.ReadOnlyEnum.exReadOnly
.MarkSearchColumn = False
.ShowFocusRect = False
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.SelForeColor = Color.FromArgb(0,0,0)
.SelBackColor = Color.FromArgb(200,225,242)
With .Columns
.Add("A")
With .Add("B")
.AllowSizing = False
.Width = 24
End With
With .Add("C")
.AllowSizing = False
.Width = 24
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasCheckBox,1)
.PartialCheck = True
End With
With .Add("D")
.AllowSizing = False
.Width = 24
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellHasRadioButton,1)
End With
End With
With .Items
h = .InsertItem(Nothing,Nothing,"Group 1")
h1 = .InsertItem(h,Nothing,16)
.set_CellValue(h1,1,17)
h1 = .InsertItem(h,Nothing,2)
.set_CellValue(h1,1,11)
h1 = .InsertItem(h,Nothing,2)
.set_ItemBackColor(h1,Color.FromArgb(240,240,240))
.set_CellValue(h1,1,9)
.set_ExpandItem(h,True)
h = .InsertItem(Nothing,Nothing,"Group 2")
.set_CellValueFormat(h,2,exontrol.EXGRIDLib.ValueFormatEnum.exHTML)
h1 = .InsertItem(h,Nothing,16)
.set_CellValue(h1,1,9)
h1 = .InsertItem(h,Nothing,12)
.set_CellValue(h1,1,11)
h1 = .InsertItem(h,Nothing,2)
.set_CellValue(h1,1,2)
.set_ExpandItem(h,True)
.set_SelectItem(h,True)
End With
.EndUpdate()
End With
|
|
613
|
Is it possible to change the style for the vertical or horizontal grid lines, in the list area
Dim h
With Exgrid1
.BeginUpdate()
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesVSolid Or exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesHDot4
.Columns.Add("C1")
.Columns.Add("C2")
.Columns.Add("C3")
With .Items
h = .AddItem("Item 1")
.set_CellValue(h,1,"SubItem 1.2")
.set_CellValue(h,2,"SubItem 1.3")
h = .AddItem("Item 2")
.set_CellValue(h,1,"SubItem 2.2")
.set_CellValue(h,2,"SubItem 2.3")
End With
.EndUpdate()
End With
|
|
612
|
Is it possible to change the style for the grid lines, for instance to be solid not dotted
With Exgrid1
.BeginUpdate()
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
.GridLineStyle = exontrol.EXGRIDLib.GridLinesStyleEnum.exGridLinesSolid
.Columns.Add("Column")
.EndUpdate()
End With
|
|
611
|
I have some buttons added on the control's scroll bar, how can I can know when the button is being clicked
' ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
Private Sub Exgrid1_ScrollButtonClick(ByVal sender As System.Object, ByVal ScrollBar As exontrol.EXGRIDLib.ScrollBarEnum, ByVal ScrollPart As exontrol.EXGRIDLib.ScrollPartEnum) Handles Exgrid1.ScrollButtonClick
With Exgrid1
Debug.Print( ScrollBar )
Debug.Print( ScrollPart )
End With
End Sub
With Exgrid1
.set_ScrollPartVisible(exontrol.EXGRIDLib.ScrollBarEnum.exHScroll,exontrol.EXGRIDLib.ScrollPartEnum.exLeftB1Part,True)
.set_ScrollPartVisible(exontrol.EXGRIDLib.ScrollBarEnum.exHScroll,exontrol.EXGRIDLib.ScrollPartEnum.exLeftB2Part,True)
.set_ScrollPartVisible(exontrol.EXGRIDLib.ScrollBarEnum.exHScroll,exontrol.EXGRIDLib.ScrollPartEnum.exRightB6Part,True)
.set_ScrollPartVisible(exontrol.EXGRIDLib.ScrollBarEnum.exHScroll,exontrol.EXGRIDLib.ScrollPartEnum.exRightB5Part,True)
.ScrollBars = exontrol.EXGRIDLib.ScrollBarsEnum.exDisableNoHorizontal
End With
|
|
610
|
How do I get notified once the user clicks a hyperlink created using the anchor HTML tag
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub Exgrid1_AnchorClick(ByVal sender As System.Object, ByVal AnchorID As String, ByVal Options As String) Handles Exgrid1.AnchorClick
With Exgrid1
Debug.Print( AnchorID )
Debug.Print( Options )
End With
End Sub
With Exgrid1
.Columns.Add("Default").set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
With .Items
.AddItem("This is a link: <aex.com;1>www.exontrol.com</a>")
.AddItem("This is a link: <aex.net;2>www.exontrol.net</a>")
End With
End With
|
|
609
|
Is it possible to start editing a cell when double click it
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Exgrid1_DblClick(ByVal sender As System.Object, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exgrid1.DblClick
With Exgrid1
.Edit()
End With
End Sub
With Exgrid1
.BeginUpdate()
.AutoEdit = False
.MarkSearchColumn = False
.Columns.Add("Edit1").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
.Columns.Add("Edit2").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
With .Items
.set_CellValue(.AddItem(1),1,2)
End With
With .Items
.set_CellValue(.AddItem(3),1,4)
End With
.EndUpdate()
End With
|
|
608
|
Is it possible to disable standard single-click behavior for this column, so I manually could call Edit() when needed
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Exgrid1_DblClick(ByVal sender As System.Object, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exgrid1.DblClick
With Exgrid1
.Edit()
End With
End Sub
With Exgrid1
.BeginUpdate()
.AutoEdit = False
.MarkSearchColumn = False
.Columns.Add("Edit1").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
.Columns.Add("Edit2").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
With .Items
.set_CellValue(.AddItem(1),1,2)
End With
With .Items
.set_CellValue(.AddItem(3),1,4)
End With
.EndUpdate()
End With
|
|
607
|
How can I get or restore the old or previously value for the cell being changed
' Change event - Occurs when the user changes the cell's content.
Private Sub Exgrid1_Change(ByVal sender As System.Object, ByVal Item As Integer, ByVal ColIndex As Integer, ByRef NewValue As Object) Handles Exgrid1.Change
With Exgrid1
Debug.Print( "Old-Value:" )
Debug.Print( .Items.get_CellValue(Item,ColIndex) )
Debug.Print( "New-Value:" )
Debug.Print( NewValue )
End With
End Sub
With Exgrid1
.BeginUpdate()
.MarkSearchColumn = False
.Columns.Add("Edit1").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
.Columns.Add("Edit2").Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.EditType
With .Items
.set_CellValue(.AddItem(1),1,2)
End With
With .Items
.set_CellValue(.AddItem(3),1,4)
End With
.EndUpdate()
End With
|
|
606
|
How can I get the item from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exgrid1.MouseMoveEvent
Dim c,h,hit
With Exgrid1
h = .get_ItemFromPoint(-1,-1,c,hit)
Debug.Print( "Handle" )
Debug.Print( h )
Debug.Print( "Index" )
Debug.Print( .Items.get_ItemToIndex(h) )
End With
End Sub
Dim h
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exHLines
.Columns.Add("Items")
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"Cell 1.1")
.InsertItem(h,Nothing,"Cell 1.2")
.set_ExpandItem(h,True)
h = .AddItem("R2")
.InsertItem(h,Nothing,"Cell 2.1")
.InsertItem(h,Nothing,"Cell 2.2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
605
|
How can I get the column from the cursor, not only in the header
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exgrid1.MouseMoveEvent
With Exgrid1
Debug.Print( .get_ColumnFromPoint(-1,0) )
End With
End Sub
Dim h
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("P1")
.Columns.Add("P2")
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
With .Items
h = .AddItem("R1")
.set_CellValue(h,1,"R2")
.set_CellValue(.InsertItem(h,Nothing,"Cell 1.1"),1,"Cell 1.2")
.set_CellValue(.InsertItem(h,Nothing,"Cell 2.1"),1,"Cell 2.2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
604
|
How can I get the column from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exgrid1.MouseMoveEvent
With Exgrid1
Debug.Print( .get_ColumnFromPoint(-1,-1) )
End With
End Sub
Dim h
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.DrawGridLines = exontrol.EXGRIDLib.GridLinesEnum.exAllLines
.Columns.Add("P1")
.Columns.Add("P2")
With .Items
h = .AddItem("R1")
.set_CellValue(h,1,"R2")
.set_CellValue(.InsertItem(h,Nothing,"Cell 1.1"),1,"Cell 1.2")
.set_CellValue(.InsertItem(h,Nothing,"Cell 2.1"),1,"Cell 2.2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
603
|
How can I get the cell's caption from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Exgrid1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Exgrid1.MouseMoveEvent
Dim c,h,hit
With Exgrid1
h = .get_ItemFromPoint(-1,-1,c,hit)
Debug.Print( .Items.get_CellCaption(h,c) )
End With
End Sub
Dim h
With Exgrid1
.BeginUpdate()
.LinesAtRoot = exontrol.EXGRIDLib.LinesAtRootEnum.exLinesAtRoot
.Columns.Add("Items")
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"Cell 1.1")
.InsertItem(h,Nothing,"Cell 1.2")
.set_ExpandItem(h,True)
h = .AddItem("R2")
.InsertItem(h,Nothing,"Cell 2.1")
.InsertItem(h,Nothing,"Cell 2.2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
602
|
How can I customize the items based on the values in the cells
Dim h,h1
With Exgrid1
.BeginUpdate()
.MarkSearchColumn = False
With .ConditionalFormats
With .Add("%1 >4")
.Bold = True
.StrikeOut = True
.ForeColor = Color.FromArgb(255,0,0)
.ApplyTo = exontrol.EXGRIDLib.FormatApplyToEnum.exFormatToItems
End With
With .Add("%2 > 4")
.Bold = True
.StrikeOut = True
.ForeColor = Color.FromArgb(255,0,0)
.ApplyTo = &H2
End With
With .Add("%3 > 4")
.Bold = True
.StrikeOut = True
.ForeColor = Color.FromArgb(255,0,0)
.ApplyTo = &H3
End With
End With
With .Columns
.Add("Name")
With .Add("A")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' +'"
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("B")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' +'"
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("C")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' ='"
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("A+B+C")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 64
.ComputedField = "%1+%2+%3"
.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
End With
End With
With .Items
h = .AddItem("Root")
.set_CellValueFormat(h,4,exontrol.EXGRIDLib.ValueFormatEnum.exComputedField)
h1 = .InsertItem(h,Nothing,"Child 1")
.set_CellValue(h1,1,7)
.set_CellValue(h1,2,3)
.set_CellValue(h1,3,1)
h1 = .InsertItem(h,Nothing,"Child 2")
.set_CellValue(h1,1,2)
.set_CellValue(h1,2,5)
.set_CellValue(h1,3,12)
h1 = .InsertItem(h,Nothing,"Child 3")
.set_CellValue(h1,1,2)
.set_CellValue(h1,2,2)
.set_CellValue(h1,3,4)
h1 = .InsertItem(h,Nothing,"Child 4")
.set_CellValue(h1,1,2)
.set_CellValue(h1,2,9)
.set_CellValue(h1,3,4)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
|
601
|
Is it is possible to have a column computing values from other columns
Dim h,h1
With Exgrid1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns
.Add("Name")
With .Add("A")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' +'"
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("B")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' +'"
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("C")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 36
.FormatColumn = "len(value) ? value + ' ='"
.Editor.EditType = exontrol.EXGRIDLib.EditTypeEnum.SpinType
End With
With .Add("A+B+C")
.SortType = exontrol.EXGRIDLib.SortTypeEnum.SortNumeric
.AllowSizing = False
.Width = 64
.ComputedField = "%1+%2+%3"
.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
.set_Def(exontrol.EXGRIDLib.DefColumnEnum.exCellValueFormat,1)
End With
End With
With .Items
h = .AddItem("Root")
.set_CellValueFormat(h,4,exontrol.EXGRIDLib.ValueFormatEnum.exComputedField)
h1 = .InsertItem(h,Nothing,"Child 1")
.set_CellValue(h1,1,7)
.set_CellValue(h1,2,3)
.set_CellValue(h1,3,1)
h1 = .InsertItem(h,Nothing,"Child 2")
.set_CellValue(h1,1,2)
.set_CellValue(h1,2,5)
.set_CellValue(h1,3,12)
h1 = .InsertItem(h,Nothing,"Child 3")
.set_CellValue(h1,1,2)
.set_CellValue(h1,2,2)
.set_CellValue(h1,3,4)
h1 = .InsertItem(h,Nothing,"Child 4")
.set_CellValue(h1,1,2)
.set_CellValue(h1,2,9)
.set_CellValue(h1,3,4)
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|